home *** CD-ROM | disk | FTP | other *** search
/ PC User 2003 May / Disc 2 / PCU0503CD2.iso / BitFax_BitWare / BitWarePro / Simply / French / HOST.SCP < prev    next >
Encoding:
Text File  |  2001-09-05  |  6.4 KB  |  359 lines
  1. //////////////////////////////
  2. //Host Script BitCom//
  3. //////////////////////////////popup
  4. declare STRING  %s;
  5. declare STRING  %a;
  6.  
  7. declare STRING  %cr;
  8. declare STRING  %comma;
  9. declare int     %tp;
  10. declare STRING  %OK;
  11. declare STRING  %space;
  12. declare STRING  %swait;
  13. declare int     %try;
  14.  
  15. declare long    %ret;
  16. declare STRING  %sel;
  17. declare STRING  %hosttime;
  18. declare STRING  %logontime;
  19. declare STRING  %logintime;
  20. declare STRING  %logonfname;
  21. declare STRING  %logonlname;
  22. declare STRING  %logonpname;
  23.  
  24. declare STRING  %logonfile;
  25.  
  26. declare STRING  %file_name;
  27. declare STRING  %file_time;
  28. declare STRING  %file_size;
  29. declare STRING  %terminated;
  30.  
  31. declare long    %count;
  32.  
  33. // subroutine for displaying files in upload directory
  34. sub DISPLAYDIRECTORY
  35.     %ret = FINDFIRST(%file_name, %file_time, %file_size)
  36.     if (%ret != 1)
  37.     {
  38.         %s = "No files."
  39.         TYPECR(%s)
  40.         goto enddisp
  41.     }
  42.  
  43.     TYPE(%file_name)
  44.     TYPE(%space)
  45.     TYPE(%file_size)
  46.     TYPE(%space)
  47.     TYPECR(%file_time)
  48.  
  49. :findnextfile
  50.     %ret = FINDNEXT(%file_name, %file_time, %file_size)
  51.  
  52.     if (%ret = 1)
  53.     {
  54.         TYPE(%file_name)
  55.         TYPE(%space)
  56.         TYPE(%file_size)
  57.         TYPE(%space)
  58.         TYPECR(%file_time)
  59.  
  60.         goto findnextfile
  61.     }
  62. :enddisp
  63. endsub
  64.  
  65. // subroutine for selecting file transfer protocol and file name
  66. sub SELECTFILEXFER
  67. :reselect
  68.     TYPECR(%cr)
  69.     TYPECR(%cr)
  70.     %s = "Select file transfer protocol:"
  71.     TYPECR(%s)
  72.     %s = "<1> Xmodem           <2> Xmodem 1K          <3> Xmodem 1KG"
  73.     TYPECR(%s)
  74.     %s = "<4> Ymodem           <5> YmodemG            <6> Zmodem"
  75.     TYPECR(%s)
  76.     %s = "<7> Kermit           <8> ASCII              <9> Quit"
  77.     TYPECR(%s)
  78.  
  79.     %s = "Your choice:  "
  80.     TYPE(%s)
  81.  
  82.     %sel = GETTYPE()
  83.     %terminated = "TERMINATED"
  84.     %ret = stricmp(%sel,%terminated)
  85.     if (%ret = 0)
  86.     {
  87.       goto terminatedloop
  88.     }
  89.  
  90.     if (%sel = "1")
  91.         goto selfilename
  92.  
  93.     if (%sel = "2")
  94.         goto selfilename
  95.  
  96.     if (%sel = "3")
  97.         goto selfilename
  98.  
  99.     if (%sel = "4")
  100.         goto selfilename
  101.  
  102.     if (%sel = "5")
  103.         goto selfilename
  104.  
  105.     if (%sel = "6")
  106.         goto selfilename
  107.  
  108.     if (%sel = "7")
  109.         goto selfilename
  110.  
  111.     if (%sel = "8")
  112.         goto selfilename
  113.  
  114.     if (%sel = "9")
  115.         goto endsel
  116.  
  117.     goto reselect
  118.  
  119. :selfilename
  120.     TYPECR(%cr)
  121.     %s = "Enter file name: "
  122.     TYPE(%s)
  123.     %file_name = GETTYPE()
  124.     %terminated = "TERMINATED"
  125.     %ret = stricmp(%file_name,%terminated)
  126.     if (%ret = 0)
  127.     {
  128.       goto terminatedloop
  129.     }
  130.     TYPECR(%cr)
  131.     %s = "Are you ready to start file transfer ? (Y/N) "
  132.     TYPE(%s)
  133.  
  134.     %a = GETTYPE()
  135.     %terminated = "TERMINATED"
  136.     %ret = stricmp(%a,%terminated)
  137.     if (%ret = 0)
  138.     {
  139.       goto terminatedloop
  140.     }
  141.     TYPECR(%cr)
  142.  
  143.     if (%a = "N" OR %a = "n")
  144.         goto reselect
  145.  
  146. :endsel
  147. endsub
  148.  
  149. :START
  150.  
  151.     %cr = ""
  152.     %comma = ","
  153.     %space = "        "
  154.     %OK = "OK"
  155.     %swait = "hello"
  156.     %count = 0
  157.     %try = 0
  158.  
  159.     TYPECR(%cr)
  160.     TYPECR(%cr)
  161.  
  162. :LOOP
  163.     
  164.     %s = "Entering Host Mode..."
  165.     TYPECR(%s)
  166.     %s = "sec"
  167.     TWAIT(2, %s)
  168.     AutoAnswerOn()
  169.     %s = "sec"
  170.     TWAIT(2, %s)
  171.     %s = "Waiting for Logon."
  172.     TYPECR(%s)
  173.  
  174.     WaitForOnline()
  175.     CLEAR()
  176.     POSCUR(1, 1)
  177.  
  178.     %s = "sec"
  179.     TWAIT(2, %s)
  180.  
  181.         %s = "***********************************************"
  182.     TYPECR(%s)
  183.         %s = "*                                             *"
  184.         TYPECR(%s)
  185.         %s = "*           "
  186.         TYPE(%s)
  187.         %s = @Title
  188.         TYPE(%s)
  189.         %s = "           *"
  190.     TYPECR(%s)
  191.         %s = "*                                             *"
  192.     TYPECR(%s)
  193.         %s = "***********************************************"
  194.     TYPECR(%s)
  195.  
  196.     TYPECR(%cr)
  197.     TYPECR(%cr)
  198.  
  199. :reenter
  200.  
  201.     %s = "Enter your first name:"
  202.     TYPE(%s)
  203.         %logonfname = GETTYPE()
  204.         %terminated = "TERMINATED"
  205.         %ret = stricmp(%logonfname,%terminated)
  206.         if (%ret = 0)
  207.         {
  208.             goto terminatedloop
  209.         }
  210.     TYPECR(%cr)
  211.     
  212.     %s = "Enter your last name:"
  213.     TYPE(%s)
  214.         %logonlname = GETTYPE()
  215.         %terminated = "TERMINATED"
  216.         %ret = stricmp(%logonlname,%terminated)
  217.         if (%ret = 0)
  218.         {
  219.             goto terminatedloop
  220.         }
  221.  
  222.     if (@Password != "1")
  223.     {
  224.         %logintime = GETHOSTTIME()
  225.         goto logontohost
  226.     }
  227.       %s = "Password:"
  228.       TYPE(%s)
  229.           %logonpname = GETTYPE()
  230.           %terminated = "TERMINATED"
  231.           %ret = stricmp(%logonpname,%terminated)
  232.           if (%ret = 0)
  233.           {
  234.               goto terminatedloop
  235.           }
  236.       %ret = CheckUserEligibility(%logonfname, %logonlname, %logonpname)     
  237.       if (%ret = 1)
  238.       {
  239.           %s = "You have logged on to the BitCom Host."
  240.           %logintime = GETHOSTTIME()
  241.           goto logontohost
  242.       }
  243.  
  244.       %try = %try + 1
  245.  
  246.       if (%try = 3)
  247.       {
  248.          %s = "Too many tries, Access denied."
  249.          TYPECR(%s)
  250.          goto    end
  251.       }
  252.  
  253.       %s = "Incorrect password, try again."
  254.       TYPECR(%s)
  255.       goto    reenter
  256.  
  257. :logontohost
  258.       
  259.       %count = %count + 1
  260.       HostLogonMessage(%count, %logonfname, %logintime)
  261.  
  262. :option
  263.  
  264.     TYPECR(%cr)
  265.     TYPECR(%cr)
  266.  
  267.     %s = "Select items:"
  268.     TYPECR(%cr)
  269.     %s = "<F> File List        <D> Download File        <U> Upload File"
  270.     TYPECR(%s)
  271.     %s = "<T> Host Time        <Q> Quit"
  272.     TYPECR(%s)
  273.  
  274.     %s = "Your choice:  "
  275.     TYPE(%s)
  276.  
  277.     %a = GETTYPE()
  278.     %terminated = "TERMINATED"
  279.     %ret = stricmp(%a,%terminated)
  280.     if (%ret = 0)
  281.     {
  282.       goto terminatedloop
  283.     }
  284.     if (%a = "F" OR %a = "f")
  285.         call DISPLAYDIRECTORY
  286.  
  287.     if (%a = "D" OR %a = "d")
  288.     {
  289.         call SELECTFILEXFER
  290.         TYPECR(%sel)
  291.         if (%sel != "9")
  292.             SENDFILE(%file_name, %sel)
  293.     }
  294.  
  295.     if (%a = "U" OR %a = "u")
  296.     {
  297.         call SELECTFILEXFER
  298.         TYPECR(%sel)
  299.         if (%sel != "9")
  300.             RECVFILE(%file_name, %sel)
  301.     }
  302.  
  303.     if (%a = "T" OR %a = "t")
  304.     {
  305.         %hosttime = GETHOSTTIME()
  306.         TYPECR(%cr)
  307.         TYPECR(%cr)
  308.         %s = "Login time: "
  309.         TYPE(%s)
  310.         TYPECR(%logintime)
  311.         %s = "It is now:  "
  312.         TYPE(%s)
  313.         TYPECR(%hosttime)
  314.     }
  315.  
  316.     if (%a = "Q" OR %a = "q")
  317.         goto end
  318.  
  319.     goto option
  320.  
  321. :end
  322.  
  323.     TYPECR(%cr)
  324.     TYPECR(%cr)
  325.     %s = "Login  time: "
  326.     TYPE(%s)
  327.     TYPECR(%logintime)
  328.     %s = "Logoff time: "
  329.     TYPE(%s)
  330. //The above 2 lines of the script Passes in a string "Logoff time"
  331. //This would set a flag in the code which would update the Host Mode stats
  332. //Do not change the sequence of the above 2 and below 2 line
  333.     %hosttime = GETHOSTTIME()
  334.     TYPECR(%hosttime)
  335.     TYPECR(%cr)
  336.     TYPECR(%cr)
  337.         %s = "Thank you for visiting BitCom Host."
  338.     TYPECR(%s)
  339.  
  340. :terminatedloop
  341.  
  342.     HANGUP()
  343.     WaitForOffline()
  344.     
  345.     %ret = fopen("Host.Log", "a")
  346.     if (%ret = 1)
  347.     {
  348.         fputs(%logonfname, "Host.Log")
  349.         fputs(%comma, "Host.Log")
  350.         fputs(%logintime, "Host.Log")
  351.         fputs(%comma, "Host.Log")
  352.         fputs(%hosttime, "Host.Log")
  353.         %tp = 10
  354.         fputc(%tp, "Host.Log")
  355.         fclose("Host.Log")
  356.     }
  357.     goto LOOP
  358. exit(0)
  359.